1 REM********************************** 2 REM*--------- LEKTION 3 ------------* 3 REM*--------------------------------* 4 REM*---- (W) BY ARNO FREISINGER ----* 5 REM*--------------------------------* 6 REM*----------- IN 1987 ------------* 7 REM*--------------------------------* 8 REM*------- -----------* 9 REM********************************** 10 POKE 53280 , 11 : POKE 53281 , 11 : PRINT "[155]" : POKE 2050 , 1 15 SYS 42291 : POKE 46 , PEEK (35) : POKE 45 , PEEK (781) + 2 : CLR 20 PRINT"[147]"TAB(15)"TEACHMASTER" 30 PRINT""TAB(09)"(W) BY ARNO FREISINGER" 40 PRINT""TAB(10)" " 50 FOR I = 1 TO 2000 : NEXT 60 PRINT"[147]"TAB(15)"LEKTION 3" 70 FOR I = 1 TO 1000 : NEXT 100 PRINT"[147]IM LETZTEN KURS HABEN WIR DIE ERSTEN" 110 PRINT"BEFEHLE KENNENGELERNT." 120 PRINT"LDX = LADEN INS X-REGISTER" 130 PRINT"LDY = LADEN INS Y-REGISTER" 140 PRINT"LDA = LADEN IN DEN AKKU" 150 PRINT"DIESE BEFEHLE SIND VERGLEICHBAR MIT DEM" 160 PRINT"BASIC-BEFEHL PEEK.JETZT LERNEN WIR DEN" 170 PRINT"POKE KENNEN." 180 PRINT"STA = AKKU INHALT IN EINE SPEICHERSTELLE" 190 PRINT"SCHREIBEN." 200 PRINT""TAB(14)"TASTE DRUECKEN" 210 PRINT""TAB(18)"-1-" 220 GOSUB 250 230 ON A GOTO 300 , 60 247 REM 248 REM --TASTEN ABFRAGE- 249 REM 250 GET A$ : IF A$ = "" THEN 250 260 IF A$ = "Z" THEN A = 2 : RETURN 270 A = 1 : RETURN 297 REM 298 REM -- SEITE 2 -- 299 REM 300 PRINT"[147]STX = SCHREIBE X-REGISTERINHALT IN EINE" 310 PRINT"SPEICHERSTELLE." 320 PRINT"STY = SCHREIBE Y-REGISTERINHALT IN EINE" 330 PRINT"SPEICHERSTELLE." 340 PRINT"DIES SIND NUN DIE ENTSPRECHENDEN POKES." 350 PRINT"WIR BRAUCHEN NOCH EINEN BEFEHL UND DANN" 360 PRINT"KOENNEN WIR SCHON UNSER ERSTES PRO-" 370 PRINT"GRAMM SCHREIBEN. DIESER BEFEHL LAUTET" 380 PRINT"RTS[146] UND ER BEDEUTET AUF DEUTSCH KEHR" 390 PRINT"ZURUECK.IN UNSEREM FALL WAERE DAS INS" 400 PRINT"BASIC ZURUECK." 410 PRINTTAB(14)"TASTE DRUECKEN" 420 PRINT""TAB(18)"-2-" 430 GOSUB 250 : ON A GOTO 440 , 100 440 REM 450 REM -- SEITE 3 -- 460 REM 470 PRINT"[147]-------DAS-ERSTE-PROGRAMM---------------" 480 PRINT"WIR WOLLEN NUN UNSER ERSTES PROGRAMM" 490 PRINT"SCHREIBEN." 500 PRINT"LDA #$01 ; 1 IN DEN AKKU LADEN" 510 PRINT"STA $D021 ; AKKU INHALT NACH $D021" 520 PRINT"RTS ; ZURUECK INS BASIC" 530 PRINT"WAS BEWIRKT DIESES PROGRAMM ?" 540 PRINT"DER ERSTE BEFEHL LAED EINE 1 IN DEN " 550 PRINT"AKKU.DER ZWEITE BEFEHL SCHREIBT DEN " 560 PRINT"AKKU-INHALT IN DIE SPEICHERSTELLE $D021" 570 PRINT""TAB(14)"TASTE DRUECKEN" 580 PRINT""TAB(18)"-3-" 590 GOSUB 250 : ON A GOTO 600 , 300 600 REM 610 REM -- SEITE 4 -- 620 REM 630 PRINT"[147]$D021 (DAS ZEICHEN $" 640 PRINT"STEHT FUER HEXADEZIMALZAHLEN) BEDEUTET" 650 PRINT"IN UNSERER DEZIMALEN SCHREIBWEISE 53281." 660 PRINT"WISSEN SIE, WAS DIESE SPEICHERSTELLE" 670 PRINT"FUER EINE AUFGABE HAT ?NEIN, DANN WILL" 680 PRINT"ICH ES IHNEN SAGEN. SIE GIBT DIE " 690 PRINT"AKTUELLE HINTERGRUNDFARBE DES" 700 PRINT"BILDSCHIRMS AN UND EINE EINS BEDEUTET" 710 PRINT"DIE FARBE WEISS. MIT UNSEREM PROGRAMM " 740 PRINT""TAB(14)"TASTE DRUECKEN" 750 PRINT""TAB(18)"-4-" 760 GOSUB 250 : ON A GOTO 770 , 440 770 REM 780 REM -- SEITE 5 -- 790 REM 800 PRINT"[147]AENDERN WIR DIE HINTERGRUNDFARBE IN" 810 PRINT"WEISS." 820 PRINT"DRUECKEN SIE EINE TASTE UND" 830 PRINT"DAS PROGRAMM WIRD AUSGEFUEHRT" 840 GOSUB 250 850 POKE 53281 , 1 : FOR I = 1 TO 300 : NEXT 860 PRINT"SEHEN SIE. DRUECKEN SIE JETZT WIEDER" 870 PRINT"EINE TASTE UND DER AUSGANGSZUSTAND WIRD" 880 PRINT"WIEDER HERGESTELLT." 890 GOSUB 250 : POKE 53281 , 11 : FOR I = 1 TO 300 : NEXT 900 PRINT"DIES FUNKTIONIERT DOCH PRIMA, ABER " 910 PRINT"WEITER MIT NEUEN BEFEHLEN." 920 PRINT"INX[146] = ERHOEHT DEN AKTUELLEN WERT DES" 930 PRINT"X-REGISTERS UM EINS." 940 PRINT""TAB(14)"TASTE DRUECKEN" 950 PRINT""TAB(18)"-5-" 960 GOSUB 250 : ON A GOTO 970 , 600 970 REM 980 REM -- SEITE 6 -- 990 REM 1000 PRINT"[147]INY[146] = ERHOEHT DEN AKTUELLEN WERT DES " 1010 PRINT"Y-REGISTERS UM EINS." 1020 PRINT"INC[146] (ADRESSE) = ERHOEHT EINE BESTIMMTE" 1030 PRINT"SPEICHERSTELLE UM EINS." 1040 PRINT"JETZT DAS GEGENTEIL :" 1050 PRINT"DEX[146] = ZIEHT VOM X-REGISTER EINS AB" 1060 PRINT"DEY[146] = ZIEHT VOM Y-REGISTER EINS AB" 1070 PRINT"DEC[146] (ADRESSE) = ZIEHT VON EINER 1080 [153]"SPEICHERSTELLE EINS AB" 1130 [153]""[163]18)"-6-" 1140 [141] 250 : [145] A [137] 1150 , 770 1150 [143] 1160 [143] -- SEITE 7 -- 1170 [143] 1200 [153]"LOAD------JETZT-UNSER-ZWEITES-PROGRAMM------" 1210 [153]"DEC $D021 : SPEICHERSTELLE MINUS EINS." 1220 [153]"RTS : KEHRT ZURUECK INS BASIC." 1230 [153]"DIESES PROGRAMM ZIEHT VON DER SPEICHER-" 1240 [153]"STELLE HEX.$D021, DEZ.53281 EINS AB." 1250 [153]"DIES BEDEUTET, DIE FARBE, DIE JETZT" 1260 [153]"DARGESTELLT WIRD, WIRD UM EINS ER-" 1270 [153]"NIEDRIGT.IN UNSEREM FALL WAERE DIES" 1390 [153]""[163]14)"TASTE DRUECKEN" 1400 [153]""[163]18)"-7-" : [141] 250 : [145] A [137] 1410 , 970 1410 [143] 1420 [143] -- SEITE 8 -- 1430 [143] 1440 [153]"LOADAUS DUNKELGRAU IN HELL-ROT. DRUECKEN" 1450 [153]"SIE EINE TASTE UND DAS PROGRAMM WIRD" 1460 [153]"AUSGEFUEHRT." 1462 [141] 250 1464 [151] 53281 ,[194](53281)[171]1 1470 [153]"DRUECKEN SIE WIEDER EINE TASTE UND DER" 1480 [153]"AUSGANGSZUSTAND WIRD WIEDER HERGESTELLT." 1490 [141] 250 1500 [151] 53281 , [194] (53281) [170]1 1510 [153]"SIE SEHEN, MASCHINENSPRACHE IST DOCH" 1520 [153]"GANZ EINFACH." 1530 [153]"IN DEN NAECHSTEN FOLGEN WOLLEN WIR UNS" 1540 [153]"MIT ETWAS HOEHERER PROGRAMMIERKUNST" 1550 [153]"BEFASSEN, ABER KEINE ANGST, SO SCHWER" 1560 [153]""[163]14)"TASTE DRUECKEN" 1570 [153]""[163]18)"-8-" : [141] 250 : [145] A [137] 1580 , 1150 1580 [143] 1590 [143] -- SEITE 9 -- 1600 [143] 1620 [153]"LOADWIRD ES NICHT. ICH MEINE,WENN SIE ES BIS" 1630 [153]"HIER GESCHAFFT HABEN,WERDEN SIE DEN REST" 1640 [153]"AUCH NOCH VERSTEHEN." 1650 [153]"GEBEN SIE WIEDER IHR EINGABEGERAET EIN" 1660 A$ [178] "" 1670 [133] "DWAIT ODER FWAIT";A$ 1675 [139] A$ [178] "Z" [167] [137] 1410 1680 [139] A$ [178] "F" [167] F[178]8 : [137]1710 1685 [139] A$ [178] "" [167] [128] 1690 [139] A$ [178] "D" [167] F[178]1 : [137]1710 1700 [137] 1660 1710 [151] 2 , F : [151] 45 ,3 : [151] 46 , 8 : [147] "LEKTION 4" , [194] (2)